Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/fontfx1a/fotfx.frm

Text File | 1999-09-12 | 11KB | 245 lines

VERSION 5.00
Begin VB.Form FontFX
   BorderStyle     =   1  'Fixed Single
   Caption         =   "                            Font FX"
   ClientHeight    =   1800
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5715
   Icon            =   "FotFX.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1800
   ScaleWidth      =   5715
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command14
      Caption         =   "Diag 1"
      Height          =   225
      Left            =   3765
      TabIndex        =   14
      Top             =   1305
      Width           =   615
   End
   Begin VB.CommandButton Command13
      Caption         =   "Diag 2"
      Height          =   225
      Left            =   4395
      TabIndex        =   13
      Top             =   1305
      Width           =   615
   End
   Begin VB.CommandButton Command12
      Caption         =   "Start Loop"
      Height          =   255
      Left            =   3750
      TabIndex        =   12
      Top             =   1545
      Width           =   1260
   End
   Begin VB.CommandButton Command11
      Caption         =   "Start Loop"
      Height          =   255
      Left            =   2490
      TabIndex        =   11
      Top             =   1545
      Width           =   1260
   End
   Begin VB.CommandButton Command10
      Caption         =   "Top"
      Height          =   225
      Left            =   3225
      TabIndex        =   10
      Top             =   1305
      Width           =   525
   End
   Begin VB.CommandButton Command9
      Caption         =   "Bottom"
      Height          =   225
      Left            =   2505
      TabIndex        =   9
      Top             =   1305
      Width           =   720
   End
   Begin VB.CommandButton Command8
      Caption         =   "About"
      Height          =   255
      Left            =   5025
      TabIndex        =   8
      ToolTipText     =   "In msg box form"
      Top             =   1290
      Width           =   675
   End
   Begin VB.CommandButton Command7
      Caption         =   "About"
      Height          =   255
      Left            =   5025
      TabIndex        =   7
      ToolTipText     =   "In Grow/Shrink form"
      Top             =   1545
      Width           =   675
   End
   Begin VB.CommandButton Command6
      Caption         =   "Start Loop"
      Height          =   255
      Left            =   1320
      TabIndex        =   6
      Top             =   1545
      Width           =   1170
   End
   Begin VB.CommandButton Command5
      Caption         =   "Left"
      Height          =   225
      Left            =   1995
      TabIndex        =   5
      Top             =   1305
      Width           =   495
   End
   Begin VB.CommandButton Command4
      Caption         =   "Right"
      Height          =   225
      Left            =   1320
      TabIndex        =   4
      Top             =   1305
      Width           =   675
   End
   Begin VB.CommandButton Command3
      Caption         =   "Start Loop"
      Height          =   255
      Left            =   0
      TabIndex        =   3
      Top             =   1545
      Width           =   1320
   End
   Begin VB.CommandButton Command2
      Caption         =   "Shrink"
      Height          =   225
      Left            =   615
      TabIndex        =   2
      Top             =   1305
      Width           =   705
   End
   Begin VB.CommandButton Command1
      Caption         =   "Grow"
      Height          =   225
      Left            =   0
      TabIndex        =   1
      Top             =   1305
      Width           =   615
   End
   Begin VB.PictureBox Picture1
      AutoRedraw      =   -1  'True
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   1290
      Left            =   0
      ScaleHeight     =   1230
      ScaleWidth      =   5655
      TabIndex        =   0
      Top             =   0
      Width           =   5715
   End
End
Attribute VB_Name = "FontFX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Call Grow("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
End Sub
Private Sub Command10_Click()
Call TxtTop("aa", ".0005", 1, Middle, Picture1)
End Sub
Private Sub Command11_Click()
If Command11.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command11.Caption = "Stop Loop"
Else
Command11.Caption = "Start Loop"
End If
Do Until Command11.Caption = "Start Loop" 'Start Loop, Stop looping if the button says Start Loop
Call TxtBottom("aa", ".0001", 1, Middle, Picture1) '(The Text, The Pause, the increment of movement, the possition of the y axis, top bottom or middle, the picturebox)
Call TxtTop("aa", ".0001", 1, Middle, Picture1) '(The Text, The Pause, the increment of movement, the possition of the y axis, top bottom or middle, the picturebox)
Loop 'Loop to beginnning
End Sub
Private Sub Command12_Click()
If Command12.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command12.Caption = "Stop Loop"
Else
Command12.Caption = "Start Loop"
End If
Do Until Command12.Caption = "Start Loop" 'Start loop, Stop looping if the button says Start Loop
Call TxtDiagTopRight("aa", ".005", Picture1)
Call TxtDiagTopLeft("aa", ".005", Picture1)
Loop 'Loop to beggning
End Sub
Private Sub Command13_Click()
Call TxtDiagTopRight("aa", ".005", Picture1)
End Sub
Private Sub Command14_Click()
Call TxtDiagTopLeft("aa", ".005", Picture1)
End Sub
Private Sub Command2_Click()
Call Shrink("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
End Sub
Private Sub Command3_Click()
If Command3.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command3.Caption = "Stop Loop"
Else
Command3.Caption = "Start Loop"
End If
Do Until Command3.Caption = "Start Loop" 'Start loop, Stop looping if the button says Start Loop
Call Grow("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
Call Shrink("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
Loop 'Loop to beginning
End Sub
Private Sub Command4_Click()
Call TxtRight("aa", ".0001", 1, Bottom, Picture1) '(The Text you want to show, The pause between the increments, the increment of movement, the possition of the y axis, top bottom or middle, The picture box you want it to show up in)
End Sub
Private Sub Command5_Click()
Call TxtLeft("aa", ".0001", 1, Bottom, Picture1) '(The Text you want to show, The pause between the increments, the increment of movement, the possition of the y axis, top bottom or middle, The picture box you want it to show up in)
End Sub
Private Sub Command6_Click()
If Command6.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command6.Caption = "Stop Loop"
Else
Command6.Caption = "Start Loop"
End